home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr11 / powerb5.zip / DT.BAS < prev    next >
BASIC Source File  |  1993-06-01  |  251b  |  14 lines
  1. 10 OPEN "O",#1,"C:\DT"
  2. 20 D$=DATE$
  3. 30 PRINT #1,D$
  4. 40 CLOSE
  5. 50 OPEN "I",#1,"C:\DT"
  6. 60 A$=INPUT$(8,#1)
  7. 70 ON ERROR GOTO 120
  8. 80 OPEN "I",#2,"C:\TODAY"
  9. 90 B$=INPUT$(8,#2)
  10. 100 IF A$=B$ THEN GOTO 130
  11. 110 CLOSE
  12. 120 SHELL "CHECK.BAT"
  13. 130 SYSTEM
  14.